<%
Sub Map(S_KEY)
SysInclude("map.html")

S_CRUMB.Str=text("网站地图","Site Map")

If S_KEY=0 Then 
	Flush()
Else
	FlushToHTML()
End If 

End Sub

%>


